home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / pascal / mc01.zip / TVSHELL.PAS < prev   
Pascal/Delphi Source File  |  1993-12-04  |  829b  |  45 lines
  1. uses Dos, Objects, Drivers, Memory, Views, Menus, App ;
  2.  
  3. Const
  4. {Put include files here *.CM, *.HC }
  5.  
  6. {I }
  7. {I }
  8. type
  9.  
  10.     tvapp = object(tapplication)
  11.       procedure initmenubar;virtual;
  12.     end;
  13.  
  14.  
  15.  
  16.  
  17.  
  18. procedure tvapp.initmenubar;
  19. var
  20.  r:trect;
  21. begin
  22. {------------------------------------------------------------------------}
  23. {  Use ^KR  then *.SCM to grab source from disk to insert into this file }
  24. {  Sample  delete between * before reading in another menu               }
  25. {  Change the include directives at the top of the file to match the     }
  26. {  menu name                                                             }
  27. {------------------------------------------------------------------------}
  28.  
  29.  
  30.  
  31.  
  32. end;
  33.  
  34. var
  35.     Theapp:tvapp;
  36.  
  37.  
  38.  
  39. begin
  40. Theapp.init;
  41. Theapp.run;
  42. Theapp.done;
  43.  
  44.  
  45. end.